home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-1.iso / games / nerak2.zip / CAT.SCR < prev    next >
Text File  |  1994-07-04  |  2KB  |  76 lines
  1. !
  2. !  Cat script
  3. !
  4. !  Karen Scites 1994
  5. !------------------------------------------------------------------------!
  6. :@TALK ! Talk to the character !
  7. !------------------------------------------------------------------------!
  8.  
  9.   if player.hp = 0 then
  10.     writeln( player.name, " is dead!" );
  11.     STOP;
  12.   endif;
  13.  
  14.   if npc.picture >= 0 then
  15.     viewpcx(npc);
  16.   endif;
  17.  
  18. ! First, say hello.. !
  19.   if NPC.V0 > 0 then
  20.     writeln( "Meow Meow Meow." );
  21.   else
  22.     writeln( "Meow Meow Meow" );
  23.   endif;
  24.  
  25. ! Now, set some variables..
  26.   NPC.V0 = 1; ! From know on, remember we've been here
  27.  
  28. :LOOP
  29.   L3 = getstr("Name","Job","Join","Bye");
  30.   if L3 = -1 then 
  31.     writeln( "Meow." );
  32.     goto XSTOP;
  33.   endif;
  34.  
  35. ! First, see if the keyword typed is in the character's text block !
  36.   if dotext( S0 ) then
  37.     if L3 = 3 goto XSTOP;
  38.     goto LOOP;
  39.   endif;
  40.  
  41. ! It didn't, so try the predefined ones..
  42.   on L3 goto CNAME, CJOB, CJOIN, CSTOP;
  43.  
  44. ! Nope, try a 'DEFAULT' line
  45.   if not dotext( "DEFAULT" ) then
  46.     writeln( "Meow Meow Meow" );
  47.   endif;
  48.   goto LOOP;
  49.  
  50. :CNAME
  51.   writeln( "Meow Meow Meow." );
  52.   GOTO LOOP;
  53.  
  54. :CJOB
  55.   writeln( "Meow Meow Meow." );
  56.   GOTO LOOP;
  57.  
  58. :CJOIN
  59.   writeln( "Meow Meow Meow." );
  60.   GOTO LOOP;
  61.  
  62. :CSTOP
  63.   writeln( "Meow Meow Meow." );
  64.   goto XSTOP;
  65.  
  66. ! Feel free to expand on this list.. !
  67.  
  68. !-----------------------------------------------------------------!
  69. ! All STOPs now lead here so the screen can be restored if needed !
  70. !-----------------------------------------------------------------!
  71. :XSTOP
  72.   if npc.picture >= 0 then
  73.     paint(window); ! Assumes the picture fits in the window !
  74.   endif;
  75.   STOP;
  76.